home *** CD-ROM | disk | FTP | other *** search
/ More Anime Pin-Up Beauties / More Anime Pin-Up Beauties.iso / mac / WEST / GPX04.dir / 00195_Script_195 < prev    next >
Text File  |  1998-06-22  |  3KB  |  137 lines
  1. -- OPEN/END
  2. -- ++++++++++++++++++++++++++++++++ read AG000
  3. on initOPN1
  4.     global gPathItem
  5.     global gPathAiff
  6.                 global gInitCount
  7.  
  8.     cursor 4
  9.  
  10.     puppetPalette "PL-000"
  11.     upDateStage
  12.                 put 1 into gInitCount
  13.     aiffSound(0)
  14.  
  15.     getPicture(the number of cast "BCK.PICT" ,gPathItem & "AG000")
  16.  
  17.     sound playFile 1, gPathAiff & "AGM01.AIF"
  18.  
  19.     startTimer
  20.  
  21.     upDateStage
  22.  
  23. -- ++++++++++++++++++++++++++++++++ wait while soundBusy
  24. on loopOPN1
  25.  
  26.     if soundBusy(1) then
  27.         go to the frame
  28.     else
  29.         cursor -1
  30.     end if
  31.  
  32. -- ++++++++++++++++++++++++++++++++ read AG001
  33. on initOPN2
  34.     global gPathItem
  35.     global gPathAiff
  36.                 global gInitCount
  37.  
  38.     cursor 4
  39.  
  40.                 put 1 into gInitCount
  41.     aiffSound(1)
  42.  
  43.     getPicture(the number of cast "BCK.PICT" ,gPathItem & "AG001")
  44.  
  45.     startTimer
  46.  
  47.     cursor -1
  48.  
  49.     upDateStage
  50.  
  51. -- ++++++++++++++++++++++++++++++++ check timer & read next scene
  52. on loopOPN2
  53.     global gPathItem
  54.                 global gInitCount
  55.  
  56.                 put the timer into vTim
  57.  
  58.     if (vTim > (gInitCount * 300)) then
  59.  
  60.         put gInitCount + 1 into gInitCount
  61.  
  62.         if (gInitCount > 5) then
  63.             go to frame "OPNX"
  64.             exit
  65.         end if
  66.  
  67.         cursor 4
  68.         if gInitCount < 10 then
  69.             getPicture(the number of cast "BCK.PICT" ,gPathItem & "AG00" & string(gInitCount) )
  70.         else
  71.             getPicture(the number of cast "BCK.PICT" ,gPathItem & "AG0" & string(gInitCount) )
  72.         end if
  73.  
  74.         cursor -1
  75.     end if
  76.  
  77.     go to the frame
  78.  
  79.     --aiffSound(1)
  80.  
  81. -- ++++++++++++++++++++++++++++++++ skip to NAME input
  82. on skipOPN
  83.  
  84.     go to frame "NAM"
  85.  
  86.  
  87. -- ++++++++++++++++++++++++++++++++ Title scene
  88. on dispTitle
  89.     global gPathItem
  90.  
  91.     cursor 4
  92.     getPicture(the number of cast "BCK.PICT" ,gPathItem & "AG100")
  93.     cursor -1
  94.     upDateStage
  95.     startTimer
  96.  
  97. -- ++++++++++++++++++++++++++++++++ check done
  98. on chkDone
  99.     if (the timer > (10 * 60)) then
  100.         go to frame "NAM"
  101.     end if
  102.  
  103. -- ++++++++++++++++++++++++++++++++ read AG000
  104. on initTERM
  105.     global gPathItem
  106.     global gPathAiff
  107.                 global gInitCount
  108.  
  109.     cursor 4
  110.  
  111.     puppetPalette "PL-000"
  112.     upDateStage
  113.                 put 1 into gInitCount
  114.     aiffSound(0)
  115.  
  116.     getPicture(the number of cast "END.PICT" ,gPathItem & "AG000")
  117.  
  118.     puppetTransition 23
  119.  
  120.     go to (the frame + 1)
  121.     upDateStage
  122.  
  123.     sound playFile 1, gPathAiff & "AGM01.AIF"
  124.  
  125.     cursor -1
  126.  
  127.     upDateStage
  128.  
  129. -- ++++++++++++++++++++++++++++++++ wait while soundBusy
  130. on loopTERM
  131.  
  132.     if soundBusy(1) then
  133.         go to the frame
  134.     else
  135.         termGPX()
  136.     end if
  137.